ocr: SYTEMEHUUFATYEiormas Description: Closes all open Forns. IF a: Forn can not be renoved Fron edit node it will not be closed and a uarning dialog will be displayed. Paraneters: euentinfo Heturns: True if all forns vere closed, else False. nethod closenllformsi(const deskToprornlitles String) Logical var forntitless arraut string The list of open Forns. leftopensi smallint 1 Smallint For loop countere fsizesi SMLEnt The nunber oF open Forns. fraf Forn. used to attach, to. each. fern. uioui ulobject used to check if in edit node. endvar leftopensi - a Get a list of the open forns. enunfornianes(F ...
